home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-10-01 | 2.5 KB | 161 lines | [FORM/VMSB] |
- MacStandardBasic Form Version 3.0
-
- FormBegin
- Name=Form1
- Title=Speech Demo
- Left=100
- Top=50
- Width=340
- Height=300
- Sub Proc.=None
- Visible=1
- Style=1
- Enabled=1
- Font=Geneva
- FontSize=12
- FontStyle=0
- Show Grid=0
- Grid Snap=1
- Grid Size=8
- Min. Width=100
- Max. Width=2000
- Min. Height=100
- Max. Height=2000
- AutoCenter=0
- ForeColor=0 0 0
- BackColor=19007 40726 65535
- FormEnd
-
- ControlBegin=TextBox
- Name=TextBox1
- Text=
- Left (x)=24
- Top (y)=40
- Width=296
- Height=96
- Sub Proc.=None
- Visible=1
- Value=0
- Enabled=1
- Font=Geneva
- FontSize=12
- FontStyle=0
- ScrollBar=1
- Read Only=0
- Tab Index=1
- Opt20=1
- Frame=1
- ForeColor=0 0 0
- BackColor=65535 65535 65535
- ControlEnd
-
- ControlBegin=Label
- Name=Label1
- Text=Enter Speech Text Here
- Left (x)=24
- Top (y)=16
- Width=192
- Height=16
- Sub Proc.=None
- Visible=1
- Enabled=1
- Font=Geneva
- FontSize=12
- FontStyle=1
- Opt20=1
- ForeColor=65535 64746 18351
- BackColor=19007 40726 65535
- ControlEnd
-
- ControlBegin=Button
- Name=Button1
- Text=Speech Output
- Left (x)=72
- Top (y)=184
- Width=201
- Height=33
- Sub Proc.=Button1_Click
- Visible=1
- Value=0
- Enabled=1
- Opt20=1
- ControlEnd
-
- ControlBegin=Button
- Name=Button2
- Text=Done
- Left (x)=72
- Top (y)=232
- Width=201
- Height=33
- Sub Proc.=Button2_Click
- Visible=1
- Value=0
- Enabled=1
- Opt20=2
- ControlEnd
-
- ControlBegin=Button
- Name=Button3
- Text=Clear Text
- Left (x)=96
- Top (y)=144
- Width=152
- Height=16
- Sub Proc.=Button3_Click
- Visible=1
- Value=0
- Enabled=1
- Opt20=3
- ControlEnd
-
- Start
- Dim A
-
- CreateTheMenus
- Form Form1
-
- A=0
- Do While A=0
- Loop
- Finish
-
- Sub CreateTheMenus( )
- MenuApple
- MenuAddItem 1, "About Speech Demo", "", AboutTheApp
- MenuDesk
- MenuAdd 2, "File", None
- MenuAddItem 2, "Quit", "Q", QuitTheApp
-
- EndSub
-
- Sub QuitTheApp( )
- End
- EndSub
-
- Sub AboutTheApp( )
- Dim a
- a = MsgBox ("Speech Demo", 0)
- EndSub
-
- Sub Button2_Click( )
- End
-
-
- EndSub
-
- Sub Button1_Click( )
- Dim A$(1000)
-
- Say CtlText( TextBox1 )
-
-
- EndSub
-
- Sub Button3_Click( )
- CtlText TextBox1, "",0
-
-
- EndSub
-
-